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<html> 

<form id = "get„card„info» m ethod- "post" action = "http://payment.asp"> 
<select name="card_type" onCiick= "talk(g__card_types)'> 
<option value- amex >American Express</option> 
< option va iue= "visa" > Visa </option> 

<option value= ,, ms ,, > MasterCard</option> 

</select> 

<reco id- "g„ca rd_ty pes" onReco ="handle()" > 

< grammar src = \/ gra m #card_types" /> 

</reco > 

<input type= M text" name="card_num n width="30" 
onCI(ck= ,, talk(g„card„num)" /> 
<reco id = " g_card_num " onReco = "handle() " > 

< grammar src = " ./gram # dig its » /> 

</reco > 

<input type="text" name = "expiry_date" — — 

onClick^'talkCg^expiry^date)" /> 
< reco id = "g_expiry_date " > 

•■ < grammar src =" ,/gram#dates " /> 
</reco > 

<input type="submit" value- Submit onCIick= "verify ()" /> 

</form> — 

<scriptx![CDATA[ 

function talk(gobj) { 
gobj .activate ( } ; 

> 

function handle { ) { 

if (get_card_inf o . card_num null) { 
if (get^card^inf o . card^type . value 

if (get_card_info. cardan urn. length 

alert ("amex should have 15 digits"); 
} else 

if (get_card_info.card_jium. length 16) 
alert ("visa and master should have 16 digits"); 

} 

function verif y ( ) { 

var flag ~ window. confirm { "submit the credit card 
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"amex") 
-' = 15) 



info? 



} 



if {flag) { 

get_caxd__inf o . submit { ) ; 



]]> 
</scrfpt> 
</htmi> 
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: body > 

< form id =" get_.card.Jnfo " m ethod = " post " action http://payrnent.asp " 
onActivate =" we!com() "> 

< prompt id = " p_weicome "> We now need your credit card </ prompt > 

< prompt id = H p.mumble "> I didn't understand you </prompt> 

< prompt id = " p _card„type " bargein = " true "> W hat credit card would you 
jse? </ prompt > 

< prompt id =" p_card_num " bargein = " true "> Please say the number" </ prompt > 

< prompt id = " p_expiry_date " bargein =' true ,, > What is the expiration 
late? </ prompt > 

"< prompt id - %i p_content "> 

X have your < value select = " card_type " /> < value select =" cardan um " /> 
with expiration date 

< value select-" expiry __date " /> 
</ prom pt > 

-< prompt Id =" p„confirm "> Is this correct? </prompt> 

< reco id=" g_card_types ,r onNoReco m um ble(this, 2) " > 
onReco =" __handle(this, card^type) " /> 

< grammar src=" -/gram # card _ types " 

</reco > „ 

< reco id = " g_card_num " onNoReco = » mumble(this, 1) > 
onReco = M _handle(this, card_num) " /> 

< grammar src~" -/9«*a m #digits " /> 

</reco > 

- < reco id=" g„expiry_date " onNoReco _*» m um ble(this, l) > 

onReco _handle(this, expiry_date) " audio =" rao " /> 

< grammar src = " ./gram#dates m /> 

</reco > 

< reco id =" confirmation " onReco confirmed(this) " /> 

< grammar src = " «/gram#yesno " /> 

</reco > 

< select name - " card„type n > 

< option value = "amex "> American Express </ option > 

< option value =" visa "> Visa </ option > 

< option value - " ms"> MasterCard </ option > 
</ select > 

< input type =" text" name = " card.num " width =" 30 " /> 

< input type =" text" name = " expiry_ date " /> 

< input type =" submit " value =" Submit " /> 
</ form > 

< script ><![CDATA[ 

function welcome ( } { 
p_welcome . active ( ) ; 
repeat = 0; 
checkFilled ( ) ; 



} 



function mumble (gob j , maxprompts) { 

gob j . deactivate () ; 

p_raumble . active ( ) ; 
checkFil led { } ;■ 



} 
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function JiandleO { 
handleO ; 
checkFilledQ; 

} . 

function checkFilled() { 

if (card_type. value = •'") { 
p„card_type . acti ve () ; 
g__card_types.activateO ; return; 

if (card„num. value ==""){ 

p__.card.jium. act i ve () ; g„card_n urn. acti vateO; return; 

if (expi ry__date. value — "") { 

p_ex pi ry_data. active () ; g__expi ry^date. activate () ; return; 

p_con tent, acti vateO ; 
p„conf i rm. acti vateO ; 
conf i rmati on . acti vate () ; 

} 

function confi rmed(gobj) { 

if Cgob j . recogRes . text = "yes") 
get__card„info.submit() ; 

)/ 

user codes start here 

function handleO { 

if (get_card_info.card__.type = "amex") { 

if (get-card„info.eard_num. length != 15) { 

prompt. speak ("amex should nave 15 digits"); 
-get__card_info-card__num = ""; 

} else 

if Cge*L_card„info.card„num. length != 16) { 

prompt. speak C'visa and master should have 16 digits"); 
get_card„info.card„num « ""; 

} 

} 

/ ]3> - 
</scnpt> 

</body> 
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<body> ..**"' 

<form id="get_card.Jnfo" method="post , ^ action= n ht±p://payment-asp 

onac±ivate= ,, welcome()"> 

< prompt id="p_weicome">We now need your credit card</prompt> 

<prompt id="p_mumble">l didn't understand you</prompt> 

<prompt id= "p^card^type" bargein="true">What credit card would you 

use?</prompt> 9 

<prompt id="p_card_num" bargein="true">PIease say the number</prompt> 
< prompt id="p_expiry_date" bargein="true">What is the expiration 
date?</prompt> 

<prompt id="p_content"> 
I have your <value select = ,, card_type n />< value se!ect="card__num /> 
with expiration date <value select= "expi ry_date" ./ > 
</prompt> 

<prompt id="p_confirm ,, >Is this correct?</prompt> 

<reco id="g_get_card_info" onReco= L.handle()" onNoReco ="miimble(this}"> 
<grammar src = , ^/gram/getPayment! , /> 
<bind target="card_type" value="/card/type tt /> 
<bind target="card_num" value=Vcard/number" /> 
405 <bind target="expiry_date" va!ue=Ycard/expr_date" /> 

</reco> 

<reco id -"confirmation" onReco =' confirmed(this) onNoReco="mumble(this) H /> 
< grammar src ="./gram#yesno"/> 

<^ect : name= n card_type ,, > 

<option value="amex">American Express</optton> 

<option value="visa">Visa</option> 

<option value="ms">MasterCard</option> 
</select> 

<input type="text" name= M card„num" width="30" /> 
<input type="text" name="expiry„date" /> 
<input type= n submit" value="Submit" /> 

</form> 

<script> < ! PCDATA! 

function welcome O { 
p_wel come . ac t i ve O ; 
repeat « 0; 
checkFilledO; 

function mumble(gobj) { 
gobj . deactivate O ; 
p_mumble»active() ; 
checkFilledO; 

function _handleO { 
handle O ; 

checkFilledO; 
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function checkFilled() i 
if (carcLtype. value = "") 

' p_card_type . acti ve () ; ; do_f i el d . acti vate C) ; retu rn ; 

if (card_num. value =-=■'"') {* 

^ p_card_num.activeO; do„field. acti vate O ; return; 

if (expiry__date. value = { 

P-expiry_data.activeO; do_fi eld. acti vat e () ; return 

p_content. acti vate O ; 
p__conf i rm . acti vate () ; 
conf i rmat i on . acti vate O ; 

function confirmed (gob j) { 

if (gob j . recogRes . text = "yes") 

get«card_i nfo . submi t (gensml ()) ; 

y user codes srart here 
function handleO { 

if (field = get_card_info.card„num) { 

if (get™.card_i nfo -carcLnum. length !« 15) { 

prompt. speak ("amex should have 15 digits") ; 
get„card„info.card„num - ""; 

} else 

if (getLxard_i nfo. card__num. length != 16) { 

prompt. speak ("visa should have 15 digits"); 
get_card__info.card_.num = ""; 

} } 
function gensml () { 

str = '<smlxcredit_card type=" 1 ; 
str card^type. value; str += ' "xnumber*-' ; 
str += card__number. value; str *</number><expi re>* ; 
str += expiry_date. value; str += 
'Vexpirex/credit-cardx/sm^' ; 

return str; 

} 

]]> 
</script> 
</body> 
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SAMPLE ASP+ PAGE 

<%@ Page language^" Jscript" AutoEventWireup^"f alse" Inherits™"Credit . Transaction" %> 
<htmlxhead> 

<! — ASPX page for both voice-only & multimodal credit card example = — > 
<script> 

function handle ( ) { 

if (field — — get_card_info. card_num) { 

if (get__card_info . card__num. length != 15) { 
prompt. speak ("amex should have 15 digits")/ 
get__card_inf o . card_num = " " ; 

} 

} else 

if (get_card_info. car d_num. length !— 16) { 
prompt. speak ("visa should have 15 digits"); 
get__card_inf o . card_num = " " ; 

} 

} 

function gensml ( ) { 

str - ' <sml><credit_cardxcard_type> 1 ; 

str +— card__type. value; str 4-= 1 </card_type><number> 1 ; 

str card_nuirtber. value; str +— 1 </ number ><expire> 1 ; 

str += expiry__date. value; str +— T </expire></credit_card></smi> 1 ; 

return str; 

} 

</script> 

<script runat="server"> 
function Page___Load (obj, args) { 
if (PostBack) { 

validator - new System. Speech. SMLValidator /CreditSDL . xml") ; 
dsml — validator . Evaluate (args ) ; 
Navigate (ChoosePage (dsml) ) ; 
} else { 

// initialize fields with args 

> 

} 

</script> 

</head> 

<body> 

<speech:form id="get_card_inf o" style— "system_initiative" 

prompt^", /prompt /get Payment " onsubmit= "gensml () "> 
<speech: choice name-"card_type" prompt="What credit card would you use?" 

grammar-" . /gram#card_types " onPhraseFinish= "handle ( ) " 

<option>American Express</option> 

<option>Visa</option> 

<option>Mastercard </option> 
</speech: choice> 

<speech: textbox name="card_number" prompt="Please say the number" 

grammar=" . /gram#digits " onPhraseFinish="handle ( ) "> 
<speech: textbox name="expiry__date" prompt="What is the expiration date? " 

grammar=" . /gramidates " onPhraseFinish="handle ( ) "/> 

</speech: f orm> 

</body> 

</html> 
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